Object subclass: #ClientCanvas	instanceVariableNames: 'html5canvas'	classVariableNames: ''	poolDictionaries: ''	category: 'AjTalk-ClientCanvas'!!ClientCanvas methodsFor: 'drawing' stamp: 'ajl 11/1/2011 13:41'!drawLine: fromPoint to: toPoint	"draw a line"	html5canvas x1: fromPoint x y1: fromPoint y x2: toPoint x y2: toPoint y! !!ClientCanvas methodsFor: 'drawing' stamp: 'ajl 11/1/2011 13:42'!example1 	"first example"	self drawLine: 10 @ 10 to: 100 @ 100! !!ClientCanvas methodsFor: 'drawing' stamp: 'ajl 11/1/2011 14:05'!example2	"second example"	10 do: [ :k | self drawLine: (k * 10) @ (k * 5) to: (k * 20) @ (k * 25)]! !